//StudentManager.dprԪļMainWinForm.pasAddWinForm.pasUpdate_DeleteWinForm.pasԪļеĺĴ룺

//1. ԪļAddWinFormĺĴ룺

   //롿ťButton1
procedure TWinForm.Button1_Click(sender: System.Object; e: System.EventArgs);

var strSQL:string;
    n:integer;
    MyBdpConnection:BdpConnection;
    MyBDPCommand:BDPCommand;
    stu_id,name,gender,birthday,native,speciality,grade,remark :string;

begin
    stu_id := TextBox1.Text;
    name := TextBox2.Text;
    gender := TextBox3.Text;
    birthday := TextBox4.Text;
    native := TextBox5.Text;
    speciality := TextBox6.Text;
    grade := TextBox7.Text;
    remark := TextBox8.Text;
    strSQL := 'delete from stu where  name =''''';
    strSQL := 'insert into stu values('+stu_id+', '''+name+''', ' + gender + ','''+ birthday +''',  '''+ native +''', '''+ speciality +''', '+ grade +' , '''+ remark +''');';
    MyBdpConnection := BdpConnection.Create('database=MyDatabase;
hostname=localhost;
assembly = Borland.Data.Mssql,
Version=2.0.0.0,
Culture=neutral,
PublicKeyToken= 91d62ebb5b0d1b1b;
vendorclient = sqloledb.dll;
provider = MSSQL;
username=sa;
password=123');
    MyBdpConnection.Open;
    MyBDPCommand := BdpCommand.Create;
    MyBDPCommand.Connection := MyBdpConnection;
    MyBDPCommand.CommandType := System.Data.CommandType.Text;
    MyBDPCommand.CommandText := strSQL;
    try
       n:=MyBDPCommand.ExecuteNonQuery;
       MessageBox.Show('ɹ'+n.ToString+'¼');
       except  on e: Exception do
           MessageBox.Show(e.Message);
       end;
       MyBdpConnection.Close;
end;

//áťButton2

procedure TWinForm.Button2_Click(sender: System.Object; e: System.EventArgs);
begin
    TextBox1.Text := '';
    TextBox2.Text := '';
    TextBox3.Text := '';
    TextBox4.Text := '';
    TextBox5.Text := '';
    TextBox6.Text := '';
    TextBox7.Text := '';
    TextBox8.Text := '';
end;


//2. ԪļUpdate_DeleteWinForm ĺĴ룺

    //TWinForm_Load:
procedure TWinForm.TWinForm_Load(sender: System.Object; e: System.EventArgs);
begin
BdpConnection1 := BDPConnection.Create('database=MyDatabase;
hostname=localhost;
assembly= Borland.Data.Mssql,
Version=2.0.0.0,
Culture=neutral,
PublicKeyToken=91d62ebb5b0d1b1b;
vendorclient = sqloledb.dll;
provider = MSSQL;
username=sa;
password=123');
  BdpConnection1.Open;
  BdpDataAdapter1.SelectCommand.CommandText := 'select * from stu';
  DataSet1 :=DataSet.Create;
  BdpDataAdapter1.Fill(DataSet1,'stuTable');
  DataGrid1.DataSource := DataSet1.Tables['stuTable'];
  TextBox1.Text := DataGrid1.Item[0,1].ToString;
  TextBox2.Text := DataGrid1.Item[0,6].ToString;
end;


    //DataGridMouseUpʵ֡ѵǰ¼ŵı޸ġĹ
procedure TWinForm.DataGrid1_MouseUp(sender: System.Object;
e: System.Windows.Forms.MouseEventArgs);
var SqlStr:string;
   rowIndex:integer;
begin
  rowIndex := DataGrid1.CurrentRowIndex;
  cellValue := DataGrid1.Item[rowIndex,0].ToString;  // cellValueΪȫֱ
  TextBox1.Text := DataGrid1.Item[rowIndex,1].ToString;
  TextBox2.Text := DataGrid1.Item[rowIndex,6].ToString;
end;



//ɾǰ¼ťӦButton2
procedure TWinForm.Button2_Click1(sender: System.Object; e: System.EventArgs); // Button1
var n:integer;
    strSQL:string;
begin
BdpConnection1 := BdpConnection.Create('database= MyDatabase;hostname= localhost;assembly= Borland.Data.Mssql, Version=2.0.0.0, Culture=neutral, PublicKeyToken= 91d62ebb5b0d1b1b; vendorclient = sqloledb.dll; provider=MSSQL;username=sa;password=123');
    BdpConnection1.Open;
    strSQL := 'delete from stu where  stu_id = '+ cellValue;
    BDPCommand1 := BdpCommand.Create;
    BdpCommand1.Connection := BdpConnection1;
    BdpCommand1.CommandType := System.Data.CommandType.Text;
    BDPCommand1.CommandText := strSQL;
    try
     n:=BDPCommand1.ExecuteNonQuery;
     except on e: exception  do
         MessageBox.Show(e.Message)
     end;
    strSQL := 'select * from stu';
    BdpDataAdapter1.SelectCommand.CommandText := strSQL;
    dataset1.tables.Clear;
    BdpDataAdapter1.Fill(dataset1, 'mytable');
    DataGrid1.DataSource := dataset1.Tables['mytable'];
    MessageBox.Show(' '+n.ToString+' ¼ɾˣ');
    BdpConnection1.Close;
end;


//ɾм¼ťӦButton3
procedure TWinForm.Button3_Click(sender: System.Object; e: System.EventArgs);
var n:integer;
    strSQL:string;

begin
BdpConnection1 := BdpConnection.Create('database= MyDatabase;hostname= localhost;assembly= Borland.Data.Mssql, Version=2.0.0.0, Culture=neutral, PublicKeyToken= 91d62ebb5b0d1b1b; vendorclient = sqloledb.dll; provider=MSSQL;username=sa;password=123');
    BdpConnection1.Open;
    strSQL := 'delete from stu';
    BDPCommand1 := BdpCommand.Create;
    BdpCommand1.Connection := BdpConnection1;
    BdpCommand1.CommandType := System.Data.CommandType.Text;
    BDPCommand1.CommandText := strSQL;
    try
     n:=BDPCommand1.ExecuteNonQuery;
     except on e: exception  do
         MessageBox.Show(e.Message)
     end;
    strSQL := 'select * from stu';
    BdpDataAdapter1.SelectCommand.CommandText := strSQL;
    dataset1.tables.Clear;
    BdpDataAdapter1.Fill(dataset1, 'mytable');
    DataGrid1.DataSource := dataset1.Tables['mytable'];
    MessageBox.Show(' '+n.ToString+' ¼ɾˣ');
    BdpConnection1.Close;
end;

















